1 A=USR(0),0,1,4
2 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17):A=USR(1)
3 OPEN15,D0,15,"I":CLOSE15:POKE679,23
4 PRINTCHR$(14)"[147][208]RINT AT [204]EFT, [195]ENTER, OR [210]IGHT ?"
5 GETA$:IFA$=""THEN5
6 IFA$="L"THENPOKE679,6:GOTO10
7 IFA$="C"THENPOKE679,23:GOTO10
8 IFA$="R"THENPOKE679,40:GOTO10
9 LOAD"CMND",D0
10 OPEN4,4,5:CMD4
11 SYS36891
12 PRINT#4:CLOSE4
13 PRINT"[147] ! TO SWITCH SCREENS AND PRINT,"
14 PRINT"[198]1 TO PRINT THE SAME SCREEN AGAIN,"
15 PRINT"OR ANY OTHER KEY TO EXIT."
16 GETA$:IFA$=""THEN16
17 IFA$="!"THENSYS36867:GOTO4
18 IFA$=CHR$(133)THEN4
19 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(34),16,Y,6:A=USR(34),X,231,7
20 LOAD"CMND",D0